home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / YERK / SUPPLEME / UNSUPPOR / OPTIONAL / NEON_SIE.VE < prev    next >
Text File  |  1985-04-25  |  337b  |  18 lines
  1. 8190 constant size
  2. 0 variable flags size allot
  3.  
  4. : do-prime
  5.     flags size 1 fill
  6.     0 size 0
  7.     do flags i+ c@
  8.         if 3 i+ i+ dup i+
  9.             size < if
  10.             size flags + over i+ flags + do 0 i c! dup
  11.             +loop then drop 1+
  12.         then
  13.     loop
  14.     . ." primes" cr
  15. ;
  16.  
  17. : sieve 10 0 do do-prime loop ." Done." cr ;
  18.